home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu309.dms / pu309.adf / Radio-Log (.txt) < prev    next >
AmigaBASIC Source Code  |  1990-09-05  |  25KB  |  843 lines
  1. ' RADIO-LOG (©) Copyright 1990 by Rev.Arend Venema Snr. (VK3CHP)
  2. ' 
  3. ' Copy of the program only permitted if program is copied unchanged.
  4. ' See SHARE-Note in Read-Me Program.
  5.  
  6. TOP:  
  7.    CLEAR ,200000 ,8000
  8.    GOSUB 30000 :GOTO 1000
  9. 2 :
  10.    IF NUM=1 AND NM=1 THEN RETURN
  11.    C$=CS$:
  12.    IF JO=1 THEN C$=OCS$
  13.    W=1:T=NM:J=LEN(C$):FL=0:UP=0:DWN=0:Y=0
  14. 3 : 
  15.    X= INT (T/2)
  16.  4 IF C$ = LEFT$(IN$(T),J) THEN GOTO 23
  17.  5 IF C$ < LEFT$(IN$(T),J) THEN T = (T-X):X = INT(X/2):XL=1
  18.  6 IF X = 0 AND XL = 1 THEN T = T - 1
  19.  7 IF T < 1 THEN T = 0: GOTO 28
  20.  8 IF T > NM THEN T = 0: GOTO 28
  21.  9 IF C$ > LEFT$(IN$(T),J) THEN T = (T+X):X = INT(X/2):XK=1
  22. 10 IF X=0 AND XK=1 THEN T=T+1
  23. 11 W=1
  24. 12 FL=FL+1: IF FL=20 THEN T=0: GOTO 18
  25. 13 IF T<1 THEN T=0: GOTO 28
  26. 14 IF T>NM THEN T=0: GOTO 28
  27. 15 XL=0:XK=0: GOTO 4
  28. 16 IF C$= LEFT$(IN$(T),J) THEN GOTO 23
  29. 17 GOTO 22
  30. 18 IF C$ <> LEFT$(IN$(T),J) THEN 28
  31. 19 IF C$ = LEFT$(IN$(T),J) THEN GOTO 23
  32. 20 IF UP=1 THEN T=T+1: GOTO 18
  33. 21 IF DWN=1 THEN T=T-1: GOTO 18
  34.  
  35. 22 IF FL THEN GOTO 4
  36. 23 IF C$ > LEFT$(IN$(T),LEN(IN$(T))-4) THEN T=T+1:UP=1: GOTO 18
  37.  
  38. 24 IF C$ < LEFT$(IN$(T),LEN(IN$(T))-4) THEN T=T-1:DWN=1: GOTO 18 
  39. 25 IF LEN(C$) <> LEN(IN$(T))-4  THEN 28
  40. 27 QL$="-":YU=1:XM=T:KK=0:LOCATE 21,1:GOTO 29
  41.  
  42. 28 GOSUB CLRBT 
  43.    QL$="+":YU=0:KL=0:LOCATE 21,4
  44.    COLOR 2,3:PRINT "NEW CALLSIGN - Type in information....":
  45.    COLOR 2,1
  46.    LOCATE V,3:PRINT TD$;:PRINT  TAB(7);CS$;:TM$="     ":PRINT  TAB(19);TM$;:
  47.    LOCATE V,27:FQ$="      ":PRINT FQ$;:RO$="   ":PRINT  TAB(36);RO$;:RI$="   ":PRINT  TAB(41);RI$;:
  48.    LOCATE V,46:NM$="         ":PRINT NM$;:QT$="             ":PRINT  TAB(57);QT$;:
  49.    LOCATE V,72:PRINT  NUM;:PRINT  TAB(78);QL$
  50. RETURN                                                  
  51.  
  52. 29 FOR I = XM TO NUM-1: IF C$ <> LEFT$(IN$(I),LEN(IN$(I))-4) THEN E=I-1:GOTO 31
  53. 30 NEXT I                       
  54. 31 FOR I = XM TO 1 STEP -1: IF C$ <> LEFT$(IN$(I),LEN(IN$(I))-4) THEN Q=I+1:GOTO 33
  55. 32 NEXT I
  56. 33 IF Q=0 THEN Q=1         
  57.    IF E=0 THEN E=1
  58.    IF XM=NUM-1 THEN E=XM
  59.    CT=(E-Q)+1:IF CT=<0 THEN CT=1
  60.    IF JO=1 THEN JO=0 : RETURN ' JO=Jump Out by Change Callsign
  61. 34 R%=VAL (RIGHT$(IN$(Q),4))
  62.    
  63.    GOSUB CHECKDAT
  64.    MX=VAL(LEFT$(DT$,2))
  65.    XT$=MID$(DT$,4,2)
  66.    
  67.    
  68. 47 GOSUB CLRBT
  69.    LOCATE 21,4:COLOR 2,3:PRINT "First contact  ";XT$;" ";MTH$(MX);" ";RIGHT$(DT$,4)
  70.    LOCATE 21,37:PRINT CS$;:PRINT TAB(46);NM$;:PRINT TAB(58);QT$;:PRINT TAB(72);R%;:PRINT TAB(78);QL$
  71.    
  72. 49 R%=VAL(RIGHT$(IN$(E),4))
  73.    GOSUB CHECKDAT
  74.    MX=VAL(LEFT$(DT$,2))
  75.    XT$=MID$(DT$,4,2)
  76.    LOCATE 22,4:PRINT "Last contact   ";XT$;" ";MTH$(MX);" ";RIGHT$(DT$,4)
  77.    LOCATE 23,4:PRINT "Number of contacts is ";:PRINT CT;:COLOR 2,1
  78.    LOCATE V,46:PRINT  NM$;:PRINT TAB(57);QT$
  79.    Q=0:E=0:CT=0:TM$="     ":FQ$="      ":RO$="   ":RI$="   "
  80.    LOCATE V,19:PRINT TM$:LOCATE V,27:PRINT FQ$:LOCATE V,36:PRINT RO$:LOCATE V,41:PRINT RI$
  81.    RETURN 
  82.  
  83. 50 :' ROUTINE FOR MOVEMENT AFTER F KEY IS PRESSED..
  84.    F=0:C$=""
  85.    LOCATE BB,LL:COLOR 1,1:PRINT" ":COLOR 2,3
  86.    
  87. 51 :
  88.    A$=INKEY$:A$=UCASE$(A$)
  89.    IF A$=CHR$(32) THEN BEWEEG
  90.    IF A$=""THEN 51
  91.    IF A$ = CHR$(8) THEN TERUG
  92.    SK=LEN(C$):IF SK>0 THEN SPRING
  93. SPRING:
  94.    IF A$=CHR$(13) THEN LAATZIEN
  95.    IF A$>CHR$(57) AND A$<CHR$(65) THEN GOTO 51
  96.    IF A$>CHR$(46) AND A$<CHR$(91) THEN GOTO BEWEEG
  97.    IF F=0 THEN GOTO 51
  98.  
  99. LAATZIEN:
  100.    LOCATE BB,LL:PRINT C$;:COLOR 3,3:PRINT " " 
  101. RETURN
  102.   
  103. BEWEEG:
  104.    C$=C$+A$:
  105.    LOCATE BB,LL:PRINT C$;
  106.    COLOR 1,1:PRINT " ":COLOR 2,3
  107.    GOTO 51
  108.    
  109. TERUG:
  110.    U=LEN(C$)-1:IF U=-1 THEN 51
  111.    C$=LEFT$(C$,U):COLOR 2,3
  112.    LOCATE BB,LL:PRINT C$;
  113.    COLOR 1,1:PRINT " ";:COLOR 3,3:PRINT " "
  114.    GOTO 51
  115.  
  116. LOGBOOK:
  117.    GOSUB CLRBT:COLOR 2,3:LOCATE 21,50:PRINT "LOGBOOK - LIST..."
  118.    LOCATE 21,4:PRINT "Starting No. of Logbook-List: "
  119.    BB=21:LL=34:GOSUB 50:SN$=C$
  120.    B=LEN(SN$):IF B>4 THEN PRINT BL$:GOTO LOGBOOK
  121.    COLOR 2,3
  122.    LOCATE 22,4:PRINT "Ending No. of Logbook-List: "
  123.    BB=22:LL=32:GOSUB 50:EN$=C$  
  124.    B=LEN(EN$):IF B>4 THEN PRINT  BL$:GOTO LOGBOOK
  125.    GOSUB CLRBT: COLOR 2,3:LOCATE 21,50:PRINT "LOGBOOK - LIST..."
  126.    LOCATE 21,4:PRINT "LOGBOOK LIST from No.: ";SN$;" to ";EN$
  127.    LOCATE 22,4:PRINT "Are You Happy With These Figures ? Y/N":
  128. 60 :   
  129.    KL$=INKEY$ :KL$=UCASE$(KL$)
  130.    IF KL$ = "Y" THEN 62
  131.    IF KL$= "N" THEN 61 
  132.    IF KL$ <> "Y" OR KL$ <> "N" THEN 60
  133.   61 IF KL$="N" THEN NUM=NM:V=V-1:AL=1:GOSUB 81:GOTO DATE
  134.   62 R%=VAL(SN$):E=VAL(EN$): PG=1:PA=1
  135. 69 :
  136.    GOSUB CHECKDAT
  137.    IF PG=1 THEN LPRINT TAB(20):LPRINT "L O G B O O K  -  L I S T  from ";SN$;" to ";EN$;:LPRINT TAB(70)
  138.    IF PG=1 THEN LPRINT "PAGE :"PA:FOR I = 1 TO 80:LPRINT "-";:NEXT
  139.    IF PG=1 THEN LPRINT "NUM. CALLSIGN  DATE        TIME  FREQ.  SIGNAL  SIGNAL  NAME     TOWN        QSL":
  140.    IF PG=1 THEN FOR I = 1 TO 80:LPRINT "-";:NEXT:LPRINT:   
  141.    R$=STR$(R%):R$=MID$(R$,2,(LEN(R$)-1))
  142.    IF LEN(R$)=1 THEN R$="000"+R$
  143.    IF LEN(R$)=2 THEN R$="00"+R$
  144.    IF LEN(R$)=3 THEN R$="0"+R$
  145.    GOSUB PRILINE :
  146.    R%=R%+1:IF R%=E+1 THEN NUM=NM:V=V-1:AL=1:GOSUB 81:GOTO DATE
  147.    PG=PG+1:IF PG=KJ THEN PG=1:PA=PA+1:LPRINT:LPRINT:FOR I = 1 TO 80:LPRINT "-";:NEXT:LPRINT:LPRINT:LPRINT:LPRINT:
  148.    GOTO 69
  149.       
  150. 80 : ' window
  151.    title$=SPACE$(Z)+"LOGBOOK "+SU$(1)
  152.    WINDOW 2,title$,(0,0)-(631,186),16
  153. 81 :   
  154.    COLOR 2,3:CLS:COLOR 2,1
  155.    tp=32:bt=155:lf=8:rt=626
  156.    LINE (4,tp)-(627,bt+2),2,bf ' black shadow
  157.    LINE (lf,tp)-(rt,bt),1,bf   ' white box
  158.    LINE (lf,tp)-(rt,tp)
  159.    LINE (4,22)-(625,24),2,bf
  160.    LINE (4,24)-(8,32),2,bf
  161.    LINE (42,tp)-(42,bt)
  162.    LINE (131,tp)-(131,bt)
  163.    LINE (195,tp)-(195,bt)
  164.    LINE (268,tp)-(268,bt)
  165.    LINE (312,tp)-(312,bt)
  166.    LINE (355,tp)-(355,bt)
  167.    LINE (443,tp)-(443,bt)
  168.    LINE (564,tp)-(564,bt)
  169.    LINE (624,22)-(627,bt),2,bf
  170.    LINE (lf,bt)-(rt,bt)
  171.    LOCATE 2,2
  172.    COLOR 2,3:PRINT "MONTH:";:PRINT TAB(19);:
  173.    COLOR 2,3:PRINT "YEAR:";:PRINT TAB(49);:
  174.    COLOR 2,3:PRINT "High No:";:PRINT TAB (64);:
  175.    COLOR 2,3:PRINT "Line No:"
  176.    LOCATE 2,9:PRINT MTH$(MT)
  177.    LOCATE 2,25:PRINT YR$
  178.    COLOR 1,2:LOCATE 4,2:PRINT Z2$
  179.    IF PQ=1 THEN PQ=0:SU=1:GOSUB 1915:RETURN
  180.    GOSUB 1915:NUM=NUM+1:V=V+1:IF NUM=2 THEN V=V-1:NUM=1
  181.    GOSUB 1915:V=V-1:IF AL=1 THEN AL=0:V=V+1
  182. RETURN
  183.  
  184. CHGMTH:
  185.    GOSUB CLRBT:COLOR 2,3:LOCATE 21,4:
  186.    PRINT "Type in Month > Number 1 to 12 < " 
  187.    BB=21:LL=38 :GOSUB 50
  188.  
  189.    MT=VAL(C$): IF LEN(C$) =1 THEN C$="0"+C$
  190.    IF MT>12 THEN PRINT BL$:GOTO CHGMTH
  191.    MA$=RIGHT$(STR$(MT),2)
  192.    IF LEN(MA$) <> 2 THEN PRINT BL$:GOTO CHGMTH
  193.    LOCATE 22,4:COLOR 2,3
  194.    PRINT "Type in Year > 4 numbers < "
  195.    BB=22:LL=32: GOSUB 50
  196.    YR$=C$  
  197.    IF LEN(YR$) <> 4 THEN PRINT BL$;:GOTO CHGMTH
  198.    GOSUB CLRBT:COLOR 2,3:
  199.    LOCATE 21,4:PRINT "Month = ";MTH$(MT);:PRINT "  -  Year = ";YR$
  200.    LOCATE 22,4:PRINT "Are You Happy With These Figures ? Y/N"
  201. 90 :
  202.    KL$=INKEY$ :KL$=UCASE$(KL$)
  203.    IF KL$="Y" THEN 91   
  204.    IF KL$= "N" THEN CHGMTH
  205.    IF KL$ <> "Y" OR KL$ <> "N" THEN 90
  206. 91 :
  207.    COLOR 2,3:LOCATE 2,9:PRINT "          ":LOCATE 2,25:PRINT "     "
  208.    COLOR 2,3:LOCATE 2,9:PRINT MTH$(MT);:        
  209.    LOCATE 2,25:PRINT  YR$;:
  210.    COLOR 2,1
  211.    NUM=NM:V=V-1
  212.    AL=1:GOSUB 81:GOTO DATE
  213.  
  214. 100 :
  215.    F=0:C$=""
  216.    IF SS=1 THEN SS=0:LOCATE V,H:COLOR 2,3:PRINT SS$:COLOR 2,1:GOTO GetAKey
  217.    LOCATE V,H:COLOR 1,3:PRINT " ":COLOR 2,1
  218.  
  219. GetAKey:
  220.    A$=INKEY$
  221.    IF A$=CHR$(32) THEN GOTO MOVE
  222.    A$=UCASE$(A$)
  223.    IF A$="" THEN GOTO GetAKey
  224.    IF A$=CHR$(8) THEN GOTO BACKSPACE
  225.    SK=LEN(C$):IF SK>0 THEN GOTO SKIP    
  226.    IF A$=CHR$(31) THEN MV=1:LOCATE V,H:PRINT " ":RETURN
  227.    IF A$=CHR$(30) THEN MV=2:LOCATE V,H:PRINT " ":RETURN
  228.    IF A$=CHR$(28) AND H=3 THEN LOCATE V,H:PRINT TD$:JP=1:RETURN
  229.    IF A$=CHR$(29) AND H=3 THEN LOCATE V,H:PRINT TD$:JP=2:RETURN
  230.    IF A$=CHR$(134) AND H=3 THEN SU=1:LQ=0:LOCATE V,H:PRINT TD$:GOSUB WRITDAT:GOSUB CONVNR:GOSUB MAKEDATA:GOSUB 1900:RETURN
  231.    IF A$=CHR$(129) AND H=3 THEN LOCATE V,H:PRINT TD$:GOTO SAVFIL
  232.    IF A$=CHR$(130) AND H=3 THEN LOCATE V,H:PRINT TD$:QT=2:GOTO SAVFIL
  233.    IF A$=CHR$(136) AND H=3 THEN LOCATE V,H:PRINT TD$:GOTO ALPHAPRINT
  234.    IF A$=CHR$(131) AND H=3 THEN LOCATE V,H:PRINT  TD$: GOTO MOVETONUM
  235.    IF A$=CHR$(137) AND H=3 THEN LOCATE V,H:PRINT TD$:GOTO QSLCARD
  236.    IF A$=CHR$(138) AND H=3 THEN LOCATE V,H:PRINT TD$:QT=1:GOTO SAVFIL
  237.    IF A$=CHR$(139) AND H=3 THEN LOCATE V,H:PRINT TD$:GOSUB HELP:RETURN
  238.    IF A$=CHR$(133) AND H=3 THEN LOCATE V,H:PRINT TD$:GOTO LOGBOOK
  239.    IF A$=CHR$(132) AND H=3 THEN LOCATE V,H:PRINT TD$:GOTO CHGMTH
  240.    IF A$=CHR$(135) AND H=3 THEN LOCATE V,H:PRINT TD$:GOSUB QSLCONF:R%=NUM:GOSUB WRIQSL:GOTO DATE
  241.    
  242.    
  243. SKIP:
  244.    IF A$=CHR$(13) THEN GOTO SHOW
  245.    IF A$>CHR$(57) AND A$<CHR$(65) THEN GOTO GetAKey
  246.    IF A$>CHR$(128) AND A$<CHR$(140) AND H=7 THEN GOTO MOVE
  247.    IF A$>CHR$(46) AND A$<CHR$(91) THEN GOTO MOVE
  248.    IF F=0 THEN GOTO GetAKey
  249.  
  250. SHOW:
  251.    LOCATE V,H:PRINT C$;:COLOR 2,1:PRINT " " 
  252. RETURN
  253.  
  254. MOVE:
  255.    C$=C$+A$ :LOCATE V,H:PRINT C$;
  256.    IF WN=2 AND C$="…ˆƒ†"THEN QT=3:GOTO SAVFIL
  257.    IF WN=1 AND LEN(C$) >3 THEN PRINT BL$:LOCATE V,H:PRINT "   ":GOTO 100
  258.    IF WN=2 AND LEN(C$) >9 THEN PRINT BL$:LOCATE V,H:PRINT "          ":GOTO 100
  259.    IF WN=3 AND LEN(C$) >4 THEN PRINT BL$:LOCATE V,H:PRINT "     ":GOTO 100
  260.    IF WN=4 AND LEN(C$) >5 THEN PRINT BL$:LOCATE V,H:PRINT "      ":GOTO 100
  261.    IF WN=5 AND LEN(C$) >9 THEN PRINT BL$:LOCATE V,H:PRINT "          ":GOTO 100
  262.    IF WN=6 AND LEN(C$) >13 THEN PRINT BL$:LOCATE V,H:PRINT "              ":GOTO 100
  263.    IF WN=7 AND LEN(C$) >2 THEN PRINT BL$:LOCATE V,H:PRINT "   ":GOTO 100
  264.    COLOR 1,3:PRINT " ":COLOR 2,1
  265.    GOTO GetAKey
  266.  
  267. BACKSPACE:
  268.    L=LEN (C$)-1:IF L=-1 THEN GOTO GetAKey
  269.    C$= LEFT$(C$,L)
  270.    LOCATE V,H:PRINT C$;
  271.    COLOR 1,3:PRINT " ";:COLOR 2,1:PRINT " "
  272.    GOTO GetAKey
  273.  
  274. SAVFIL:
  275.    GOSUB CLRBT
  276.    IF QT=2 THEN COLOR 2,3:LOCATE 22,4:PRINT "PLEASE WAIT..... NOW SAVING DATA BEFORE RUNNING HEADING-CHANGE !":GOTO HOP1
  277.    COLOR 2,3:LOCATE 22,4:PRINT "Please wait now saving ALL info...";:
  278. HOP1:   
  279.    COLOR 2,1
  280.    GOSUB 700: GOSUB WRI.INNUM:
  281.    IF QT=1 THEN SYSTEM
  282.    IF QT=2 THEN QT=0:RUN "Heading"
  283.    IF QT=3 THEN QT=0:RUN "EAGLE"
  284.    NUM=NM:V=V-1:AL=1:GOSUB 81:GOTO DATE
  285.  
  286. HELP:
  287.    GOSUB CLRBT:COLOR 2,3:LOCATE 21,4
  288.    PRINT "FUNCTION KEYS    2. ChangeHeading 5. Print Logbook 8. Alpha Print-out ";:
  289.    LOCATE 22,4:
  290.    PRINT "                 3. Move To Line  6. Save Lineinfo 9. Print QSL Cards ";:
  291.    LOCATE 23,4:
  292.    PRINT "1. SAVE ALL INFO 4. New Month     7. QslCard Back 10. SAVE info & QUIT";:
  293.    COLOR 2,1:MB=1
  294. RETURN      
  295.  
  296. 200 :
  297.    C$=LEFT$(CS$,1):
  298.    W=1:T=DKX-2:Z=T:FL=0:UP=0:DWN=0:Y=0:XL=0:XK=0
  299. 203 : 
  300.    X= INT (T/2)
  301. 204 :
  302.    IF C$ = LEFT$(XX$(T),1) THEN 229
  303.    IF C$ < LEFT$(XX$(T),1) THEN T = (T-X):X = INT(X/2):XL=1
  304.    IF X = 0 AND XL = 1 THEN T = T - 1
  305.    IF T < 1 THEN T = 0:GOTO 228
  306.    IF T > Z THEN T = 0:GOTO 228
  307.    IF C$ > LEFT$(XX$(T),1) THEN T = (T+X):X = INT(X/2):XK=1
  308.    IF X=0 AND XK=1 THEN T=T+1
  309.    W=1
  310.    FL=FL+1: IF FL=20 THEN T=0: GOTO 218
  311.    IF T<1 THEN T=0:GOTO 228
  312.    IF T > Z THEN T=0: GOTO 228
  313.    XL=0:XK=0: GOTO 204
  314.    IF C$= LEFT$(XX$(T),1) THEN 229
  315.    GOTO 222
  316. 218 :   
  317.    IF C$ <> LEFT$(XX$(T),1) THEN 228
  318.    IF C$ = LEFT$(XX$(T),1) THEN 229
  319.    IF UP=1 THEN T=T+1: GOTO 218
  320.    IF DWN=1 THEN T=T-1: GOTO 218
  321.  
  322. 222 :
  323.    IF FL THEN GOTO 204
  324. 228 :
  325.     COLOR 2,3
  326.     LOCATE 23,40:PRINT "COUNTRY NOT LISTED";:COLOR 2,1:RETURN
  327. 229 :
  328.     IC=T
  329. COUNT1:   
  330.    IF C$=LEFT$(XX$(IC),1) THEN IC=IC+1:GOTO COUNT1
  331.    EN=IC:IC=T
  332. COUNT2:
  333.    IF C$=LEFT$(XX$(IC),1) THEN IC=IC-1:GOTO COUNT2
  334.    SN=IC                         
  335.    FOR I=SN TO EN
  336.    IF LEFT$(CS$,3) = > XX$(I) AND LEFT$(CS$,3) = < XL$(I) THEN GOTO BINGO
  337.    NEXT I
  338.    COLOR 2,3
  339.    LOCATE 23,40:PRINT "COUNTRY NOT LISTED";:COLOR 2,1:RETURN
  340. BINGO:
  341.    IF XH$(I) <> "&" THEN BINGO2
  342.    IF XH$(I)="&" AND I=117 AND MID$(CS$,4,1)="A" THEN XH$(I)="EASTER ISLAND":RQ=1:GOTO BINGO2
  343.    IF XH$(I)="&" AND I=117 AND MID$(CS$,4,1)="X" THEN XH$(I)="SAN FELIX":RQ=1:GOTO BINGO2
  344.    IF XH$(I)="&" AND I=117 AND MID$(CS$,4,1)="Z" THEN XH$(I)="JUAN FERNANDEZ":RQ=1:GOTO BINGO2
  345.    IF XH$(I)="&" AND I=168 AND MID$(CS$,4,1)="G" THEN XH$(I)="GLORIOSO ISL":RQ=1:GOTO BINGO2
  346.    IF XH$(I)="&" AND I=168 AND MID$(CS$,4,1)="E" THEN XH$(I)="JUAN DE NOVA - EUROPA":RQ=1:GOTO BINGO2
  347.    IF XH$(I)="&" AND I=168 AND MID$(CS$,4,1)="J" THEN XH$(I)="JUAN DE NOVA - EUROPA":RQ=1:GOTO BINGO2
  348.    IF XH$(I)="&" AND I=168 AND MID$(CS$,4,1)="T" THEN XH$(I)="TROMELIN":RQ=1:GOTO BINGO2
  349.    IF XH$(I)="&" AND I=170 AND MID$(CS$,4,1)="W" THEN XH$(I)="COZET":RQ=1:GOTO BINGO2
  350.    IF XH$(I)="&" AND I=170 AND MID$(CS$,4,1)="X" THEN XH$(I)="KERGUELEN ISL":RQ=1:GOTO BINGO2
  351.    IF XH$(I)="&" AND I=170 AND MID$(CS$,4,1)="Z" THEN XH$(I)="AMSTERDAM & ST.PAUL ISL":RQ=1
  352. BINGO2:
  353.    COLOR 2,3   
  354.    LOCATE 23,37:PRINT CS$;:PRINT " --> ";:PRINT XH$(I);:IF RQ=1 THEN RQ=0:XH$(I)="&"
  355.    COLOR 2,1
  356.    RETURN
  357.  
  358. QSLCONF:
  359.    IF NUM=>NM+1 THEN GOSUB NOGO:RETURN
  360.    QL$="*":LOCATE V,78:PRINT QL$
  361.    LOCATE V,72:PRINT NUM;:LOCATE V,78:PRINT QL$;:
  362.    RETURN
  363.  
  364. NOGO:
  365.    GOSUB CLRBT:COLOR 2,3:LOCATE 21,4:PRINT "Save this line first with key F6 and then use F7.."
  366.    COLOR 2,1
  367.    RETURN
  368.  
  369. QSLCARD:
  370.    GOSUB CLRBT:COLOR 2,3:LOCATE 21,4:PRINT "QSL Card to be Printed No: ";NUM:R%=NUM
  371.    GOSUB CHECKDAT:
  372.    LOCATE 22,4:PRINT "Card In Printer Y/N "
  373. 505 :
  374.    KL$=INKEY$ :KL$=UCASE$(KL$)
  375.    IF KL$="Y" THEN 510   
  376.    IF KL$= "N" THEN 508
  377.    IF KL$ <> "Y" OR KL$ <> "N" THEN 505
  378. 508 :
  379.    IF KL$="N" THEN NUM=NM:V=V-1:AL=1:GOSUB 81:GOTO DATE
  380. 510 :
  381.    MD$=" CW"
  382.    IF MID$(RI$,2,1)="-" THEN MD$="S.S.B"
  383.    RM=2:X=2:IF LEN(FQ$)=5 THEN X=3:RM=1
  384.    TM$=LEFT$(TM$,2)+RIGHT$(TM$,2)
  385.    LPRINT "":LPRINT "":LPRINT "":LPRINT "":LPRINT "":LPRINT ""
  386.    LPRINT "":LPRINT "":LPRINT "":LPRINT "":
  387.    IF LEN(CS$)=4 THEN 521
  388.    IF LEN(CS$)=5 THEN 522
  389.    IF LEN(CS$)=6 THEN 528
  390.    IF LEN(CS$) > 8 THEN 534
  391.    IF LEN(CS$) > 6 THEN 550
  392. 521 :
  393.    LPRINT TAB(21):LPRINT CHR$(&He);CS$;CHR$(&H14);SPC(6):GOTO 536
  394. 522 :
  395.    LPRINT TAB(21):LPRINT CHR$(&He);CS$;CHR$(&H14);SPC(4):GOTO 536
  396. 526 :
  397.    LPRINT TAB(21):LPRINT CHR$(&He);CC$;CHR$(&H14);CD$;:
  398.    LPRINT SPC(15-(LEN(CC$)*2)-LEN(CD$)):GOTO 536
  399. 528 :   
  400.    LPRINT TAB(21):LPRINT CHR$(&He);CS$;CHR$(&H14);SPC(2):GOTO 536
  401. 534 :
  402.    LPRINT TAB(22):LPRINT CS$;:LPRINT SPC(13 - LEN(CS$));:
  403. 536 :
  404.    LPRINT MID$(DT$,4,2);"  ";MM$(VAL(LEFT$(DT$,2)));" ";RIGHT$(DT$,4);:     
  405.    LPRINT SPC(1):LPRINT TM$;:LPRINT SPC(1):LPRINT LEFT$(FQ$,X);:
  406.    LPRINT SPC(RM):LPRINT RI$;:LPRINT SPC(1):LPRINT MD$
  407.    GOSUB CLRBT
  408. 538 :   
  409.    LOCATE 22,4:A$=INKEY$:
  410.    IF A$="" THEN 538
  411.    LPRINT TAB(55):LPRINT CHR$(&He);CS$;CHR$(&H14)
  412.    FOR I = 1 TO 10: LPRINT "":NEXT
  413.    TM$=LEFT$(TM$,2)+":"+RIGHT$(TM$,2)
  414.    QL$="-":GOSUB WRIQSL
  415.    V=6:GOSUB 81:V=V+1:GOTO DATE
  416. 550 :
  417.    A=5:U=LEN(CS$)
  418. 551 :   
  419.    IF MID$(CS$,A,1)="/" THEN CC$=LEFT$(CS$,(A-1)):CD$=MID$(CS$,A,(U-A+1)): GOTO 526
  420.    A=A+1:IF A=U THEN 526
  421.    GOTO 551
  422.       
  423. ALPHAPRINT:
  424.    GOSUB CLRBT
  425.    COLOR 2,3:LOCATE 21,50:PRINT "ALPHA-PRINTOUT..."
  426.    LOCATE 21,4:PRINT "Starting Letter(s) of List: "
  427.    BB=21:LL=32:GOSUB 50:ST$=C$
  428.    B = LEN(ST$):IF B > 6 THEN PRINT  BL$: GOTO ALPHAPRINT
  429.    COLOR 2,3:LOCATE 22,4:PRINT "Ending Letter(s) of List: "
  430.    BB=22:LL=31:GOSUB 50:EN$=C$
  431.    W = LEN(EN$):IF W > 6 THEN PRINT  BL$: GOTO ALPHAPRINT
  432.    GOSUB CLRBT:COLOR 2,3:LOCATE 21,50:PRINT "ALPHA-PRINTOUT...":LOCATE 21,4:PRINT "Print-out will be from ";ST$;" to ";EN$
  433.    LOCATE 22,4:PRINT "Are You Happy With These Figures ? Y/N ";:
  434. BCK1:    
  435.    KL$=INKEY$ :KL$=UCASE$(KL$)
  436.    IF KL$ = "Y" THEN BCK3
  437.    IF KL$= "N" THEN BCK2 
  438.    IF KL$ <> "Y" OR KL$ <> "N" THEN BCK1
  439. BCK2:
  440.    IF KL$="N" THEN NUM=NM:V=V-1:AL=1:GOSUB 81:GOTO DATE
  441. BCK3:
  442.    GOSUB CLRBT:COLOR 2,3:LOCATE 21,50:PRINT "ALPHA-PRINTOUT..."
  443.    LOCATE 21,4:PRINT "Printout every CallSign ONCE ? Y/N"
  444. BCK4:
  445.    KL$=INKEY$ :KL$=UCASE$(KL$)
  446.    IF KL$ = "Y" THEN EC=0:GOTO BCK5
  447.    IF KL$= "N" THEN EC=1:GOTO BCK5 
  448.    IF KL$ <> "Y" OR KL$ <> "N" THEN BCK4
  449. BCK5:  
  450.    PG=1:PA=1
  451.    FOR I = 1 TO NUM: IF ST$=LEFT$(IN$(I),B) THEN Q = I:GOTO JMP1
  452.    NEXT I
  453.    IF Q=0 THEN Q=1
  454.  JMP1:  
  455.    FOR I = NUM TO 1 STEP - 1:IF EN$=LEFT$(IN$(I),W) THEN E=I:GOTO JMP2
  456.    NEXT I
  457.    GOSUB CLRBT
  458.  JMP2:
  459.    R%=VAL(RIGHT$(IN$(Q),4)):R$=RIGHT$(IN$(Q),4)
  460.    GOSUB CHECKDAT:
  461.    IF Q=1 THEN GOTO 600
  462.    IF EC=1 THEN 600
  463.    AV$=LEFT$(IN$(Q-1),LEN(IN$(Q-1))-4)
  464.    IF AV$=CS$ THEN Q=Q+1:PG=PG-1:GOTO JMP3
  465. 600 :   
  466.    IF PG=1 THEN LPRINT TAB(25):LPRINT "A L P H A  L I S T from  ";ST$;" to ";EN$;:LPRINT TAB (70)
  467.    IF PG=1 THEN LPRINT "PAGE :"PA:FOR I = 1 TO 80:LPRINT "-";:NEXT
  468.    IF PG=1 THEN LPRINT "NUM. CALLSIGN  DATE        TIME  FREQ.  SIGNAL  SIGNAL  NAME     TOWN        QSL":
  469.    IF PG=1 THEN FOR I = 1 TO 80:LPRINT "-";:NEXT:LPRINT:   
  470.    GOSUB PRILINE:Q=Q+1
  471. JMP3:
  472.    IF Q=E+1 THEN FOR I=1 TO 80:LPRINT "-";:NEXT I:NUM=NM:AL=1:V=V-1:GOSUB 81: GOTO DATE
  473.    PG=PG+1:IF PG=KJ THEN PG = 1:PA=PA+1:LPRINT :LPRINT :FOR I=1 TO 80:LPRINT "-";:NEXT:LPRINT :LPRINT :LPRINT :LPRINT :
  474.    GOTO JMP2
  475.    
  476. PRILINE:   
  477.    LPRINT R$;:LPRINT TAB(6):LPRINT CS$;:LPRINT TAB(16):
  478.    LPRINT MID$(DT$,4,2);" ";MM$(VAL(LEFT$(DT$,2)));"'";RIGHT$(DT$,2);:
  479.    LPRINT TAB(28):LPRINT  TM$;:LPRINT TAB(34):LPRINT  FQ$;:LPRINT  TAB(41):
  480.    LPRINT "His:";RI$;:LPRINT  TAB(49):LPRINT "Me:";RO$;:LPRINT  TAB(57):
  481.    LPRINT  NM$;:LPRINT  TAB(66):LPRINT  QT$;:LPRINT TAB(80):LPRINT QL$
  482.    LPRINT ""
  483. RETURN
  484.  
  485. 700 :  ' Check-routine for the right NUM after (F1)
  486.    R%=NUM:X=0:
  487. 705 :
  488.    GOSUB CHECKDAT
  489.    IF CS$ = "" OR LEFT$(CS$,1)=" " THEN R%=R%-1:X=1: GOTO 705
  490.    IF X=1 AND CS$ <> CHR$(13)  THEN GOTO 730
  491.    IF CS$ <> CHR$(13) THEN R%=R%+1: GOTO 705
  492. 730 :
  493.    NUM=R%
  494.    RETURN
  495.  
  496. 1000 :
  497.    GOSUB REA.INNUM:GOSUB 80          
  498.    MA$=LEFT$(DATE$,2):MN=VAL(MA$):V=V+1
  499.  
  500. DATE: 'TD$=DD DT$=MM-DD-YYYY
  501.    WN=7:COLOR 2,1
  502.    LOCATE V,3:PRINT TD$:IF LEN (TD$) >1 THEN SS=1:SS$=LEFT$(TD$,1)
  503.    H=3: GOSUB 100
  504.    IF SU=1 THEN SU=0:GOTO DATE
  505.    IF JP THEN LOCATE V,H:PRINT TD$:GOSUB 1800 :GOTO DATE
  506.    IF MV=1 THEN MV=0:LOCATE V,H:PRINT TD$:GOTO QTH
  507.    IF MV=2 THEN MV=0:LOCATE V,H:PRINT TD$:GOTO CALLSIGN
  508.    IF C$="" THEN TD$=MID$(DATE$,4,2):LOCATE V,3:PRINT TD$:GOTO CALLSIGN
  509.    IF LEN (C$) > 2 THEN PRINT  BL$:GOTO DATE
  510.    TD$=C$:IF LEN (C$) = 1 THEN TD$="0"+C$:LOCATE V,3:PRINT TD$
  511.    
  512. CALLSIGN:
  513.    IF MB=1 THEN MB=0:GOTO DATE
  514.    WN=2
  515.    IF MCS=1 THEN SKIPOCS
  516.    IF CS$="" THEN FX=1
  517.    OCS$=CS$:   
  518.    SKIPOCS:
  519.    LOCATE V,7:PRINT CS$:IF LEN (CS$) >1 THEN SS=1:SS$=LEFT$(CS$,1)
  520.    H=7: GOSUB 100:
  521.    IF NUM = < NM THEN NCS=1
  522.    IF MV=1 THEN MV=0:LOCATE V,7:PRINT CS$:GOTO DATE
  523.    IF C$="" OR MV=2 THEN MV=0:LOCATE V,7:PRINT CS$:GOTO TYD
  524.    CS$=C$
  525.    IF NUM = < NM THEN 1092
  526.    GOSUB 2 :GOSUB 200
  527. 1092 :
  528.    IF NCS=1 AND OCS$ < > CS$ THEN MCS=1 
  529.    LOCATE V,7:PRINT "         ":LOCATE V,7:PRINT CS$
  530.  
  531. TYD:
  532.    WN=3
  533.    LOCATE V,19:PRINT TM$:IF LEN (TM$) >1 THEN SS=1:SS$=LEFT$(TM$,1)
  534.    H=19: GOSUB 100
  535.    IF MV=1 THEN MV=0:LOCATE V,19:PRINT TM$:GOTO CALLSIGN
  536.    IF MV=2 THEN MV=0:LOCATE V,19:PRINT TM$:GOTO FREQUENTY
  537.    IF C$=""THEN TM$=LEFT$(TIME$,5):LOCATE V,19:PRINT TM$:GOTO FREQUENTY
  538.    IF LEN (C$)=1 THEN C$="000"+C$
  539.    IF LEN (C$)=2 THEN C$="00"+C$
  540.    IF LEN (C$)=3 THEN C$="0"+C$ 
  541.    TM$=LEFT$(C$,2)+":"+RIGHT$(C$,2):LOCATE V,19:PRINT TM$
  542.  
  543. FREQUENTY:
  544.    WN=4
  545.    LOCATE V,27:PRINT FQ$:IF LEN (FQ$) >1 THEN SS=1:SS$=LEFT$(FQ$,1)
  546.    H=27: GOSUB 100
  547.    IF MV=1 THEN MV=0:LOCATE V,27:PRINT FQ$:GOTO TYD
  548.    IF MV=2 THEN MV=0:LOCATE V,27:PRINT FQ$:GOTO RSTIN
  549.    IF C$="" THEN FQ$=QF$:LOCATE V,27:PRINT FQ$:GOTO RSTIN
  550.    IF LEN (C$)>5 THEN PRINT CHR$(7):GOTO FREQUENTY
  551.    IF LEN (C$)=4 THEN C$=" "+C$
  552.    FQ$=LEFT$(C$,2)+"."+RIGHT$(C$,3):QF$=FQ$:LOCATE V,27:PRINT FQ$
  553.  
  554.  
  555. RSTIN:
  556.    WN=1
  557.    LOCATE V,36:PRINT RI$:IF LEN (RI$) >1 THEN SS=1:SS$=LEFT$(RI$,1)
  558.    H=36: GOSUB 100
  559.    IF MV=1 THEN MV=0:LOCATE V,36:PRINT RI$:GOTO FREQUENTY
  560.    IF C$="" OR MV=2 THEN MV=0:LOCATE V,36:PRINT RI$:GOTO RSTOUT
  561.    IF LEN(C$)= 3 THEN RI$=C$: LOCATE V,36:PRINT  RI$:GOTO RSTOUT
  562.    RI$=LEFT$(C$,1)+"-"+RIGHT$(C$,1):LOCATE V,36:PRINT RI$
  563.    
  564. RSTOUT:
  565.    WN=1
  566.    LOCATE V,41:PRINT RO$:IF LEN (RO$) >1 THEN SS=1:SS$=LEFT$(RO$,1)
  567.    H=41: GOSUB 100
  568.    IF MV=1 THEN MV=0:LOCATE V,41:PRINT RO$:GOTO RSTIN
  569.    IF C$="" OR MV=2 THEN MV=0:LOCATE V,41:PRINT RO$:GOTO NAAM
  570.    IF LEN(C$)= 3 THEN RO$=C$: LOCATE V,41:PRINT  RO$:GOTO NAAM
  571.    RO$=LEFT$(C$,1)+"-"+RIGHT$(C$,1):LOCATE V,41:PRINT RO$
  572.  
  573. NAAM:
  574.    IF YU=1 THEN YU = 0: LQ=1:GOTO QSL
  575.    WN=5
  576.    LOCATE V,46:PRINT NM$:IF LEN (NM$) >1 THEN SS=1:SS$=LEFT$(NM$,1)
  577.    H=46: GOSUB 100
  578.    IF MV=1 THEN MV=0:LOCATE V,46:PRINT NM$:GOTO RSTOUT
  579.    IF C$="" OR MV=2 THEN MV=0:LOCATE V,46:PRINT NM$:GOTO QTH
  580.    NM$=C$:LOCATE V,46:PRINT "         ":LOCATE V,46:PRINT NM$
  581.  
  582. QTH:
  583.    WN=6
  584.    LOCATE V,57:PRINT QT$:IF LEN (QT$) >1 THEN SS=1:SS$=LEFT$(QT$,1)
  585.    H=57: GOSUB 100
  586.    IF MV=1 THEN MV=0:LOCATE V,57:PRINT QT$:GOTO NAAM
  587.    IF C$="" OR MV=2 THEN MV=0:LOCATE V,57:PRINT QT$:GOTO DATE
  588.    QT$=C$:LOCATE V,57:PRINT "            ":LOCATE V,57:PRINT QT$
  589.  
  590. QSL:
  591.    IF LQ=1 THEN  GOTO QLPR
  592.    IF NUM=1 AND NM=1 THEN GOTO SKIP3
  593.    IF NUM = < NM THEN GOTO QLPR
  594. SKIP3:
  595.    QL$="+":LOCATE V,78:PRINT QL$
  596. QLPR:
  597.    LOCATE V,72:PRINT NUM;:LOCATE V,78:PRINT QL$;:
  598.    GOTO DATE
  599.  
  600. MOVETONUM:
  601.    GOSUB CLRBT
  602.    COLOR 2,3:LOCATE 21,50:PRINT "MOVE TO LINE-NUMBER..."
  603.    LOCATE 21,4:PRINT "Type in Line Number :"
  604.    BB=21:LL=26:GOSUB 50:R$=C$:COLOR 2,3
  605.    LOCATE 22,4:PRINT "Correct Number Y/N ? "
  606. 1505 :
  607.    KL$=INKEY$ :KL$=UCASE$(KL$):IF KL$="Y" THEN 1510   
  608.    IF KL$= "N" THEN 1508
  609.    IF KL$ <> "Y" OR KL$ <> "N" THEN 1505
  610. 1508 :
  611.    IF KL$="N" THEN NUM=NM:V=6:AL=1:GOSUB 81:GOTO DATE
  612. 1510 : 
  613.     R%=VAL(R$):NUM=R%-1:IF NUM=0 THEN NUM = 1
  614.    GOSUB CHECKDAT
  615.    V=6:GOSUB 81:V=V+1:GOTO DATE
  616.    
  617.  
  618.  
  619.  
  620.  
  621. 1800 : 'Decrement Line
  622.    IF CS$ = "" THEN LOCATE V,73:PRINT "    ";:
  623.    IF JP=2 THEN GOTO 1900
  624.    V=V-1:NUM=NUM-1:IF NUM < 1 THEN NUM = 1 :V=V+1:NF=1
  625.    IF V<6 THEN V=19
  626.    GOTO 1910
  627. 1900 : 'Increment Line
  628.    IF JL=1 THEN JL=0:RETURN
  629.    V=V+1:NUM=NUM+1
  630.    IF V>19 THEN V=6
  631. 1910 :
  632.    IF NF=1 THEN NF=0:JP=0:RETURN
  633. 1915 :
  634.    JP=0
  635.    R%=NUM:GOSUB READAT
  636.    IF V < 6 THEN V = 19
  637.    IF V > 19 THEN V = 6
  638.    TD$=MID$(DT$,4,2)
  639.    COLOR 2,1 : IF CS$="" THEN CS$="         ":KO=1
  640.    LOCATE V,3:PRINT TD$;:PRINT  TAB(7);CS$;:PRINT  TAB(19);TM$;:
  641.    LOCATE V,27:PRINT FQ$;:PRINT  TAB(36);RI$;:PRINT  TAB(41);RO$;:
  642.    LOCATE V,46:PRINT NM$;:PRINT  TAB(57);QT$;:
  643.    LOCATE V,72:PRINT  NUM;:PRINT  TAB(78);QL$;:
  644.    IF KO=1 THEN KO=0:CS$=""
  645.    COLOR 2,3:LOCATE 2,57:PRINT NM:LOCATE 2,72:PRINT NUM 
  646. CLRBT:
  647.    COLOR 3,3:FOR I=21 TO 23:LOCATE I,4:PRINT  STRING$(77," ");:NEXT
  648.    COLOR 2,1
  649. RETURN
  650.  
  651. WRITDAT:
  652.    R%=NUM :DT$=MA$+"-"+TD$+"-"+YR$
  653. WRIQSL:
  654.    IF LEFT$(CS$,1)=" " OR CS$="" THEN RETURN
  655.    IF NUM > NM+1 THEN JL=1:GOTO WARN1
  656.       
  657.    OPEN "R",#1,"LOGFIL",59
  658.    FIELD #1,10 AS A$,9 AS B$,5 AS C$,6 AS D$,3 AS E$,3 AS F$,9 AS G$,13 AS H$,1 AS I$
  659.  
  660.    LSET A$=DT$
  661.    LSET B$=CS$
  662.    LSET C$=TM$
  663.    LSET D$=FQ$
  664.    LSET E$=RO$
  665.    LSET F$=RI$
  666.    LSET G$=NM$
  667.    LSET H$=QT$
  668.    LSET I$=QL$
  669.    PUT #1,R%
  670.    CLOSE #1
  671.    IF MCS=1 THEN MCS=0:NCS=0:GOSUB CHKCHGCS
  672. RETURN
  673.  
  674. WARN1:
  675.    GOSUB CLRBT:COLOR 2,3:LOCATE 21,4
  676.    PRINT "You CANNOT Save this line......"
  677.    LOCATE 22,4:PRINT "There is NO info on previous line(s) !!!";:
  678.    PRINT BL$:COLOR 2,1
  679.    RETURN
  680.  
  681. READAT:
  682.    R%=NUM
  683. CHECKDAT:
  684.    OPEN "R",#1,"LOGFIL",59
  685.    FIELD #1,10 AS A$,9 AS B$,5 AS C$,6 AS D$,3 AS E$,3 AS F$,9 AS G$,13 AS H$,1 AS I$
  686.    GET #1,R%
  687.    LET DT$=A$
  688.    LET CS$=B$
  689.    LET TM$=C$
  690.    LET FQ$=D$
  691.    LET RO$=E$
  692.    LET RI$=F$
  693.    LET NM$=G$
  694.    LET QT$=H$
  695.    LET QL$=I$ 
  696.    CLOSE #1
  697.    Z=INSTR(CS$," "):IF Z=0 THEN RETURN
  698.    CS$=LEFT$(CS$,Z-1):Z=0
  699. RETURN
  700.  
  701. WRI.INNUM:
  702.    OPEN "INFLOG" FOR OUTPUT AS #1 
  703.    WRITE #1,NUM
  704.    FOR I = 1 TO NUM
  705.    WRITE #1,IN$(I)
  706.    NEXT I
  707.    CLOSE #1
  708.    KILL "INFLOG.INFO"
  709. RETURN
  710.  
  711. REA.INNUM:
  712.    OPEN "I",#1,"INFLOG"
  713.    INPUT #1,NUM
  714.    DM=NUM+250:DIM IN$(DM) 
  715.    FOR I = 1 TO NUM
  716.    INPUT #1,IN$(I)
  717.    NEXT I
  718.    CLOSE #1
  719.    IF NUM=0 THEN NUM=1
  720.    NM=NUM
  721. RETURN
  722.  
  723. CONVNR: 'Convert Num into string for Callsign+number
  724.    IF NUM=1 AND NM=1 THEN FC=1: GOTO SKIP2
  725.    IF LEFT$(CS$,1)=" " OR CS$="" THEN RETURN
  726.    IF NUM = < NM THEN RETURN
  727.    IF JL=1 THEN RETURN
  728. SKIP2:
  729.    A$=STR$(NUM):A$=MID$(A$,2,(LEN(A$)-1))
  730.    IF LEN(A$)=1 THEN A$="000"+A$
  731.    IF LEN(A$)=2 THEN A$="00"+A$
  732.    IF LEN(A$)=3 THEN A$="0"+A$
  733.    CS$=CS$+A$:IN$(NUM)=CS$
  734.    IF FC=1 THEN FC=0:RETURN: 'FC is flag for FIRST CALLSIGN
  735.    NM=NM+1:
  736.    FOR I=NUM TO 2 STEP - 1
  737.    IF IN$(I) < IN$(I-1) THEN SWAP IN$(I),IN$(I-1):NEXT I
  738. RETURN
  739.  
  740. CHKCHGCS: 'Check Change in CallSign
  741. IF OCS$="" OR LEFT$(OCS$,1)=" " THEN RETURN
  742.  
  743.    JO=1
  744.    GOSUB 2
  745.    JO=0
  746. LKAGN:   
  747.    IF VAL(RIGHT$(IN$(Q),4))=R% THEN CH=Q:CS$ = CS$ + RIGHT$(IN$(Q),4): IN$(Q)=CS$: GOTO ALPHASORT
  748.    Q=Q+1:IF Q=E+1 THEN RETURN
  749.    GOTO LKAGN 
  750. RETURN
  751.  
  752. ALPHASORT:
  753.    IF Q=1 THEN CH=0:RETURN
  754.    IF IN$(Q) < IN$(Q-1) THEN SWAP IN$(Q),IN$(Q-1):Q=Q-1:GOTO ALPHASORT
  755.    IF Q <> CH THEN CH=0:RETURN
  756. SECALFA:
  757.    IF Q=NM THEN CH=0:RETURN
  758.    IF IN$(Q) > IN$(Q+1) THEN SWAP IN$(Q),IN$(Q+1):Q=Q+1:GOTO SECALFA
  759.    CH=0
  760.    RETURN
  761.  
  762. MAKEDATA:
  763.  
  764. IF VAL(SU$(2))=< NUM+50 THEN GAH
  765. RETURN
  766.  
  767. GAH:
  768.  
  769.    GOSUB CLRBT:COLOR 2,3
  770.    LOCATE 21,5:PRINT "Please WAIT, now updating files......."
  771.     LOCATE 22,5:PRINT "Writing DATA to file > Line NUMBER = "
  772.    S$=SU$(2):I%=VAL(S$)-1
  773.    E%=I%+51:E$=STR$(E%):SU$(2)=E$:SU$(3)=""
  774.    SU$(2)=MID$(SU$(2),2,LEN(SU$(2))-1):SU$(3)=SU$(2)
  775.    DT$="":CS$="":TM$="":FQ$="":RO$=""
  776.    RI$="":NM$="":QT$="":QL$=""
  777.  
  778.    OPEN "R",#1,"LOGFIL",59
  779.    FIELD #1,10 AS A$,9 AS B$,5 AS C$,6 AS D$,3 AS E$,3 AS F$,9 AS G$,13 AS H$, 1 AS I$
  780.  
  781. START:
  782.  
  783.    I%=I%+1:IF I%=E% THEN CLOSE #1:GOTO WRISETUP
  784.    LOCATE 22,41: PRINT I%;:
  785.    LSET A$ = DT$
  786.    LSET B$ = CS$
  787.    LSET C$ = TM$
  788.    LSET D$ = FQ$
  789.    LSET E$ = RO$
  790.    LSET F$ = RI$
  791.    LSET G$ = NM$
  792.    LSET H$ = QT$
  793.    LSET I$ = QL$
  794.    PUT #1,I%
  795.    GOTO START
  796.      
  797. WRISETUP:
  798.    OPEN "SETUP"FOR OUTPUT AS #1
  799.    FOR I = 1 TO 4
  800.    WRITE #1,SU$(I)
  801.    NEXT
  802.    CLOSE #1
  803.    KILL "SETUP.INFO"
  804. RETURN
  805.   
  806. 30000 :
  807.    DIM MM$(12) :V=6:BL$=CHR$(7)
  808.    DIM MTH$(12):MT=VAL(LEFT$(DATE$,2)):YR$=RIGHT$(DATE$,4)
  809.    Z2$="DATE CALLSIGN    TIME    FREQ.    HIS  ME   NAME       QTH            NUM QSL"
  810.    DATA JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
  811.    FOR I=1 TO 12:READ MTH$(I):NEXT
  812.    DATA JAN.,FEB.,MAR.,APR.,MAY.,JUN.,JUL.,AUG.,SEP.,OCT.,NOV.,DEC.
  813.    FOR I = 1 TO 12:READ MM$(I):NEXT
  814.    OPEN "I",#1,"SETUP"
  815.    INPUT #1,SU$(1)
  816.    INPUT #1,SU$(2)
  817.    INPUT #1,SU$(3)
  818.    INPUT #1,SU$(4)
  819.    CLOSE #1
  820.    X=INT(LEN(SU$(1))/2):Z=33-X
  821.    KJ=VAL(SU$(4))
  822.    
  823.    DIM XX$(450):DIM XL$(450):DIM XH$(450)
  824.    OPEN "I",#1,"COUNTRY"
  825.    INPUT #1,DKX
  826.    FOR I=1 TO DKX
  827.    INPUT #1,XX$(I)
  828.    INPUT #1,XL$(I)
  829.    INPUT #1,XH$(I)
  830.    NEXT
  831.    CLOSE #1
  832. RETURN
  833.  
  834.  
  835.  
  836.  
  837.  
  838.  
  839.  
  840.  
  841.  
  842.  
  843.